5 POKE788,52:O=RND(-PEEK(56324))
10 DIM NA$(100),JO(100):AM=0:JC=0
20 AM=AM+1:READ NA$(AM):IF NA$(AM)<>"***"THEN20
22 AM=AM-1
30 FORI=1TOAM:JO(I)=INT(RND(0)+.5):IFJO(I)=1THENJC=JC+1
31 NEXT
100 POKE53280,12:POKE53281,1:PRINT"[147]"
102 GOTO5000
108 O=INT(RND(0)*AM+1):IFO<JCTHEN150
110 C=INT(RND(0)*AM+1):IFJO(C)=1THEN110
120 JO(C)=1:G=INT(RND(0)*4+1):JC=JC+1
125 PRINT"*** "NA$(C)" JOINED #C-64"
128 FORI=1TOG:CG=INT(RND(0)*AM):GF=0
130 IF(JO(CG)=1)AND(CG<>C)THENPRINT"[144]<"NA$(C)"> "NA$(CG):GF=1
134 D=INT(RND(0)*1000):FORDV=1TOD:NEXTDV
135 R=INT(RND(0)*50):IF(R>30)AND(GF=1)THENPRINT"[144]<"NA$(CG)"> "NA$(C)
138 D=INT(RND(0)*2200):FORDV=1TOD:NEXTDV
140 NEXT
150 D=INT(RND(0)*3000):FORDV=1TOD:NEXTDV
160 O=INT(RND(0)*AM+1):IFO>JCTHEN200
170 C=INT(RND(0)*AM):IFJO(C)=0THEN170
180 JO(C)=0:PRINT"*** "NA$(C)" HAS QUIT [201][210][195]":JC=JC-1
200 D=INT(RND(0)*3000):FORDV=1TOD:NEXTDV
210 L=INT(RND(0)*50):IFL<42THEN250
220 C=INT(RND(0)*AM):IFJO(C)=0THEN220
230 PRINT"[144]<"NA$(C)"> POOP!"
250 D=INT(RND(0)*1000):FORDV=1TOD:NEXTDV
260 L=INT(RND(0)*50):IFL<30THEN300
270 C=INT(RND(0)*AM):IFJO(C)=0THEN300
280 CG=INT(RND(0)*AM+1):IFJO(CG)=0THEN280
285 IF C=CGTHEN300
290 PRINT"*** "NA$(C)" SETS MODE +O TO "NA$(CG)
300 D=INT(RND(0)*1000):FORDV=1TOD:NEXTDV
310 L=INT(RND(0)*50):IFL<35THEN350
320 C=INT(RND(0)*AM):IFJO(C)=0THEN350
330 CG=INT(RND(0)*AM+1):IFCG=CTHEN330
340 PRINT"[144]<"NA$(C)"> !SEEN "NA$(CG)
341 D=INT(RND(0)*1000):FORDV=1TOD:NEXTDV
342 IFJO(CG)=1THENPRINT"[144]<"NA$(CG)"> [201]'M HERE, STUPID!":GOTO360
343 CG=INT(RND(0)*AM):IF(JO(CG)=0)OR(CG=C)THEN343
344 PRINT"[144]<"NA$(CG)"> [195]OMMODORE IS NOT HERE!"
345 D=INT(RND(0)*1000):FORDV=1TOD:NEXTDV
346 PRINT"[144]<"NA$(C)"> [193]H, OKAY!"
350 GOTO110
360 D=INT(RND(0)*1000):FORDV=1TOD:NEXTDV
361 PRINT"[144]<"NA$(C)"> [207]OOPS! :)":GOTO 110
5000 PRINT"[201][210][195]-[211]IMULATOR [214]1.2"
5010 PRINT"BY [206]INJA/[212]HE [196]REAMS IN 2001":PRINT
5012 PRINT"[199]ET THE TRUE FEELING OF THE HOTTEST CHATON THE NET WITHOUT PAYING";
5014 PRINT" BUCKS FOR THE CONNECTION. [197]NJOY!":PRINT
5020 INPUT"[144][217]OUR HANDLE (MAX. 9 CHARS) ";N$:JO(AM+1)=1:NA$(AM+1)=LEFT$(N$,9)
5030 PRINT"[147]*** "NA$(AM+1)" JOINED #C-64":GOTO110
10000 DATA "[218]ER0-[216]","[211]OUN[196]EMON","[199]RAHAM","[206]INJA[196][210][205]","[215][214][204][164][216]E[206]","[206]UCLEUS"
10010 DATA "[202]AILBIRD","[196]A[198]UNK","[202]AZZCAT","[214]ENGENCE","[194]LENDER","[211]PECTATOR"
10020 DATA "[196]EEKAY","[205]AC[164][196][205][193]","[212]HBL-[208][212][214]","[197]UVEL[206]OKO","[202]EFF[195]REST","[212][194][194]","[193][205][202]"
10030 DATA "[195]HOTAIRE","[208]ATER[208]I","[197]LECTRIC","[201]OPOP","[212]APER[164]3AD","[200]0[204][204]0[215][205][193][206]"
10040 DATA "[195]0UNT[218]3R0","CUPID","[203]RILL","[212]ECMO","[196]EADBEAT","[199]ILLIGAN"
10050 DATA "[195]HAOT^[198][210]","WHK","[215]YNDEX","[207]SWALD-","[206]ATE/[196][193][195]","[202]ARI[218][218][218]","[195]REAM[196]"
10060 DATA "[194]RITE[204]ITE","[212]WOFLOWER","[195]YBER[194]RN","[216]BOW","[194]OOKER","[194]IZK[196][205][199]"
10070 DATA "[196][202][194]","[210]EYN","[210]YAN","[215]A[196]","[198]UNKHAUS","[194]ARFLY[197][216][212]","[199]RENDEL-[194]"
10080 DATA "[208]AZUZU","[194]OMBE","ANONYM","C[217][195][204][207][206][197]","R[193][217][196][197][206]0","X[201][201][201][[215][207][215]]","[211]RX"
10090 DATA "[210]AVEN","[199]ARVIN","6[210]6","[193]RMAN[164][216]E[206]","GROEPAZ","[211]LATOR","BR0WAR"
10100 DATA "[198]ENEK","WOLF[214][207][218]","[211]TEPPE","[205]ERMAID","[205]ASON","CCR[164]","CRESH[164]","ABD"
10110 DATA "BHZ","[193][207]UTSIDE","STRYYKER","[195]HECKY","JBEVREN","SAILOR3AD"
10120 DATA "[205]ORPHFROG","[196]JINN[164][215][196]","BLACKD[164]WD","[193]GEMIXER","[205]IHAI/[215][199][211]","[198]UNGUS"
19999 DATA "***"